home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo87.d64 / lock unlock.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  46 lines
  1. 100 REM:LOCK/UNLOCK
  2. 110 :
  3. 290 DI=18:AB=19
  4. 300 PRINT"[147]"TAB(10)"*** LOCK - UNLOCK[146] ***"
  5. 310 INPUT"L[146]OCK OR U[146]NLOCK  L[157][157][157]";C$
  6. 320 C$=LEFT$(C$,1):AK$=CHR$(34)
  7. 330 IFC$<>"L"ANDC$<>"U"THEN300
  8. 340 PRINT"[145]";TAB(16);:OS=0
  9. 350 IFC$="L"THENAC$="LOCK":PRINTAC$:OS=64:GOTO370
  10. 360 AC$="UNLOCK":PRINTAC$
  11. 370 O1=64-OS
  12. 380 INPUT"WHICH FILE  *[157][157][157]";F$
  13. 390 IFF$="*"THENPRINT"[145][145]";:GOTO380
  14. 400 D=0
  15. 420 INPUT"TYPE OF FILE  PRG[157][157][157][157][157]";TY$
  16. 430 TY=128-(TY$="SEQ")-2*(TY$="PRG")-3*(TY$="USR")-4*(TY$="REL")
  17. 450 IFTY=128THENPRINT"[145]";:GOTO420
  18. 460 :
  19. 490 OPEN15,8,15:NL$=CHR$(0):N$=F$
  20. 500 OPEN2,8,2,"#":GET#2,A$
  21. 540 PRINT"LOOK FOR "TY$" FILE "AK$F$AK$
  22. 560 FORS=1TOAB
  23. 600 PRINT#15,"U1:";2;0;DI;S
  24. 610 FORI=0TO7
  25. 620 PRINT#15,"B-P:";2;(2+32*I)
  26. 630 GET#2,FT$
  27. 640 IFFT$=""THENFT$=NL$
  28. 650 FT=ASC(FT$):IFFT<>TY+O1THEN770
  29. 690 H$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":F$=LEFT$(F$+H$,16)
  30. 700 PRINT#15,"B-P:";2;(5+32*I)
  31. 710 W$=""
  32. 720 FORQ=1TO16
  33. 730 GET#2,A$:IFA$=""THENA$=NL$
  34. 740 W$=W$+A$
  35. 750 NEXTQ
  36. 760 IFF$=W$THEN800
  37. 770 NEXTI
  38. 780 NEXTS:PRINT""TY$" FILE "AK$N$AK$" NOT FOUND[146]":GOTO940
  39. 800 PRINT"FOUND: "AK$N$AK$" ,"AC$
  40. 840 I1=I:S1=S
  41. 890 PRINT#15,"B-R:";2;0;DI;S1
  42. 900 PRINT#15,"B-P:";2;(2+32*I1)
  43. 910 PRINT#2,CHR$(TY+OS);
  44. 920 PRINT#15,"U2:";2;0;DI;S1
  45. 940 CLOSE2:CLOSE15
  46.